home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Pascal / Applications / MakeFat 1.0 / PNL Libraries / MyMathUtils.p < prev    next >
Encoding:
Text File  |  1995-11-07  |  1.2 KB  |  74 lines  |  [TEXT/CWIE]
  1. unit MyMathUtils;
  2.  
  3. interface
  4.  
  5.     uses
  6.         ConditionalMacros; { MUST BE UPI }
  7.  
  8.     function Min (a, b: longint): longint;
  9. {$IFC not GENERATINGPOWERPC}
  10.     inline
  11.         $201F, $2E9F, $B097, $6C02, $2E80;
  12. {$ENDC}
  13.  
  14.     function Max (a, b: longint): longint;
  15. {$IFC not GENERATINGPOWERPC}
  16.     inline
  17.         $201F, $2E9F, $B097, $6F02, $2E80;
  18. {$ENDC}
  19.  
  20.     function Pin (a, b, c: longint): longint;
  21. {$IFC not GENERATINGPOWERPC}
  22.     inline
  23.         $201F, $221F, $B280, $6F02, $2200, $201F, $B280, $6C02, $2200, $2E81;
  24. {$ENDC}
  25.  
  26.     function Choose (cond: boolean; a, b: longint): longint;
  27. {$IFC not GENERATINGPOWERPC}
  28.     inline
  29.         $201F, $221F, $4A1F, $6602, $2200, $2E81;
  30. {$ENDC}
  31.  
  32. implementation
  33.  
  34. {$IFC GENERATINGPOWERPC}
  35.     function Max (a, b: longint): longint;
  36.     begin
  37.         if a > b then begin
  38.             Max := a;
  39.         end else begin
  40.             Max := b;
  41.         end;
  42.     end;
  43.  
  44.     function Min (a, b: longint): longint;
  45.     begin
  46.         if a < b then begin
  47.             Min := a;
  48.         end else begin
  49.             Min := b;
  50.         end;
  51.     end;
  52.  
  53.     function Pin (a, b, c: longint): longint;
  54.     begin
  55.         if b < a then begin
  56.             Pin := a;
  57.         end else if b > c then begin
  58.             Pin := c;
  59.         end else begin
  60.             Pin := b;
  61.         end;
  62.     end;
  63.  
  64.     function Choose (cond: boolean; a, b: longint): longint;
  65.     begin
  66.         if cond then begin
  67.             Choose := a;
  68.         end else begin
  69.             Choose := b;
  70.         end;
  71.     end;
  72. {$ENDC}
  73.  
  74. end.